﻿
Public Class async_deliverer_wrapper
    Inherits deliverer_wrapper(Of sync_deliverer_t)

    Public Sub New(ByVal d As sync_deliverer_t)
        MyBase.New(d)
    End Sub

    Public Overrides Function deliver(ByVal c As [case]) As eventComb
        Return New eventComb(Function() As Boolean
                                 Return d.deliver(c) AndAlso
                                        goto_end()
                             End Function)
    End Function
End Class
